home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 24 / MacFormat n. 24 (Spain) / MacFormat 24.bin / Demos / Jungle Activated! / JungleActivated Demo / jung DEMO d / 00175_Mixer- Keyboard Play.ls < prev    next >
Encoding:
Text File  |  1996-10-14  |  587 b   |  22 lines
  1. on mouseDown
  2.   global gWhichClick, gWhichSound2, gWhichKeyboard
  3.   set gWhichClick to the clickOn
  4.   set gWhichClick to gWhichClick - 24
  5.   set gWhichSound2 to getpn() & "Sounds:Keys" & gWhichKeyboard & ":Key" & gWhichClick & ".aif"
  6.   if soundBusy(3) = 0 then
  7.     sound playFile 3, gWhichSound2
  8.   else
  9.     if soundBusy(13) = 0 then
  10.       sound playFile 13, gWhichSound2
  11.     else
  12.       if soundBusy(14) = 0 then
  13.         sound playFile 14, gWhichSound2
  14.       else
  15.         if soundBusy(15) = 0 then
  16.           sound playFile 15, gWhichSound2
  17.         end if
  18.       end if
  19.     end if
  20.   end if
  21. end
  22.